home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00182_BATALLA EN SALA 2.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  1.1 KB  |  45 lines
  1. on enterFrame
  2.   global Primero, Punto, Niv, Sala, TabRobot, TabRobE, TabTrayM, TabTrayO, TabTrayS, TabTrayT, TabTrayX, TabPotArmas, TabPotRobot, num_batalla, TabBatallas, EnMuerte
  3.   if getAt(TabBatallas, 2) = 0 then
  4.     set TabRobot to ["O"]
  5.     set TabPotRobot to [5]
  6.     set TabRobE to [22]
  7.     set TabTrayO to ["A", "B", "C", "D", "E", "F"]
  8.     set TabPotArmas to [1, 3, 7]
  9.     set num_batalla to 2
  10.     set EnMuerte to 1
  11.     preLoad(label("inicio batalla2"), label("inicio batalla2"))
  12.     go("inicio batalla2")
  13.   end if
  14. end
  15.  
  16. on exitFrame
  17.   go(the frame)
  18. end
  19.  
  20. on keyDown
  21.   if the keyCode = 124 then
  22.     puppetSprite(23, 1)
  23.     set the castNum of sprite 23 to 2103
  24.     derecha()
  25.   else
  26.     if the keyCode = 123 then
  27.       puppetSprite(22, 1)
  28.       set the castNum of sprite 22 to 2104
  29.       izquierda()
  30.     else
  31.       if the keyCode = 126 then
  32.         puppetSprite(20, 1)
  33.         set the castNum of sprite 20 to 2102
  34.         adelante()
  35.       else
  36.         if the keyCode = 125 then
  37.           puppetSprite(21, 1)
  38.           set the castNum of sprite 21 to 2101
  39.           atras()
  40.         end if
  41.       end if
  42.     end if
  43.   end if
  44. end
  45.